Top 10k strings from Hat Art (19xx)(-).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /

Back to the directory listing

   1 226 PAPER 2
   1 225 WINDOW 448,200,32,16
   1 220 NEXT n
   1 210   CIRCLE 180,120+20*z,n/4,.9,0
   1 20140 END DEFine p_gklogo
   1 20130  AT 19,0:PRINT"CONTINUE: PRESS ANY KEY":PAUSE
   1 20120  IF vsi>1984 AND vsi<1990 THEN AT 0,0:PRINT DAY$!DATE$
   1 20110  pv$=DATE$:vsi=pv$(1 TO 4)
   1 20100  PRINT tpvm$
   1 20090  CURSOR 222-6*LEN(tpvm$),90
   1 20080  PRINT ohj$:CSIZE 2,0
   1 20070  CURSOR 224-8*LEN(ohj$),110
   1 20060  PRINT "Gandoff & Kinge"
   1 20050  CSIZE 3,1:CURSOR 224-8*15,70
   1 20040  PAPER#1,2:INK#1,7:CLS#1
   1 20030  WINDOW#1,448,200,32,16
   1 20020  OPEN#3,scr_513x256a0x0:PAPER#3,0:CLS#3:CLOSE#3
   1 20010  LOCal pv$,vsi,v$:MODE 256
   1 20000 DEFine PROCedure p_gklogo(ohj$,tpvm$)
   1 200   z = SIN ( RAD(n))
   1 190 FOR n=0 TO 700 STEP 8
   1 160 PAPER 0
   1 150 SCALE 256,0,0
   1 145 WINDOW 513,256,0,0
   1 140 MODE 4
   1 135 p_gklogo"Hat art","21.08.85"
   1 130 REMark 
   1 120 REMark ***********
   1 110 REMark * Hat art *
   1 100 REMark ***********